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MEMORANDUM FOR FIPS Points of Contact 


FIPSCAC 
From: Harry S. White, 6 eee ad, fhe Le. oo 
Associate Director for ADP sy dards 


Subject: Review and Comment on BSR - = 58 Draft Proposed ANS FORTRAN 


My memorandum of 1976 July 30 provided for your review and comment 
the draft proposed American National Standard FORTRAN (BSR - X3.9). 


I have just received the attached press release from ANSI concerning 
the review process on the draft proposal and recent changes made by 
the responsible technical standards committee (X3J3). 


This additional material is for your information and use in preparing 
appropriate comments to the X3J3 Committee Secretary, Mr. Lloyd Campbell, 
BRL-CSD, Building 328, Aberdeen Proving Ground, Maryland 21005. 
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COMMITTEE CORRESPONDENCE 


american national standards committees: : 
ag X3—Computers & Information Processing a cs a 
X4—Office Machines & Supplies Date : 76-07-30 
Operating under the procedures of the American National Standards institute Project : 76 
Milestone: § 75 


secretariat: CBEMA, 1828 L St NW (suite 1200), Washington DC 20036 202/466-2209 


_ Replyto: = X3J3 Secretary 
PRESS RELEASE 


"EORTRAN Standards Committee Adopts IF-THEN-ELSE" 


The FORTRAN Standards Committee met in Idaho Falls, Idaho during July 12-15 
_ to begin reviewing public comments received on the draft proposed revised FORTRAN | 
standard. The committee, also known as X3J3, is a technical committee of the 
American National Standards Institute (ANSI). 

At the meeting, X3J3 approved the addition of four new statements that 
together provide the capability to conditionally execute groups of statements. 
They are called block IF, ELSE IF, ELSE and END IF statements. The need for 
this capability was strongly presented in many of the public comments. It was 
also a lively topic of discussion at two public presentations on the draft 
standard that took place in Los Angeles in February and Washington, D.C. in 
March. 

X3J3 published its draft proposal in the March issue of SIGPLAN Notices, a 
publication of the Special Interest Group on Programming Languages of the 
Association for Computing Machinery. More than eight thousand copies have been 
distributed to interested individuals, and technical, business and governmental 
organizations around the world. 

The widespread interest in the proposal for a revised FORTRAN standard is 
indicated by the substantial volume of comments received. As of the beginning 
of the meeting, 200 letters had been received totaling 810 pages. The over- 
whelming majority of comments are favorable and contain many constructive 
suggestions. According to ANSI procedures, each suggestion will be evaluated to 
determine whether a change should be made to the draft standard. Following 
completion of the X3J3 review process, each public review letter will be answered 
indicating the action taken. 

X3J3 will continue its review of public comments at its next meeting in 
September. The public review and comment period closes September 28, 1976. 
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Bell Laboratories 


FORTRAN Standards Committe. Adupts ate July 22, L976 
IF-~THEN-ELSE 


trom: J. C. Noll 


To X3J3: 


IF-THEN-ELSE was adopted at the July meeting of X3J3. The 
attached press release and IF-THEN-ELSE text is being sent 
to you as information relating to the processing of dpANS 

PORTRAN. 


Press Release 


Attached is a press release announcing the adoption of 
IF-THEN-ELSE by X3J3. IF-THEN-ELSE was adopted for the 
FORTRAN full language and the subset language. 


IF-THEN-ELSE Text 


The principal change to the dpANS FORTRAN is to Section 11, 
CONTROL STATEMENTS. Section 11 of Document X3J3/76.3 
FORTRAN Full Language is attached. The text of the subset 
is not attached since the IF-THEN-ELSE subset text is 
identical to that of the full language. 


Document X3J3/76 remains the basis document for dpANS FORTRAN. 


Document X3J3/76.3 is a working document of X3J3 and is 
subject to further changes. 


Comments on dapANS FORTRAN or the new IF-THEN-ELSE text may 
be sent to: 


Lioyd W. Campbell 

X3J3 Secretary 

BRL-CSD Bldg. 328 
Aberdeen Proving Ground 
MD 21005 USA 
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11. CONTROL STATEMENTS 
Control statements may be used to control the execution 
sequence, 
There are sixteen control stetements: 
(1) Unconditional GO TO 
(2) Computed GO TO 
(3) Assigned GO TO 
(4) Arithmetic IF 
(5) Logical IF 
(6) Block IF 
(7) ELSE IF 
(8) ELSE 
(9) END IF a 
(10) DO 
(41) CONTINUE 
(12) STOP 
(13) PAUSE 
(14) END 
€915) CALL 
(16) RETURN 


CALL and RETURN statements are described in Section 15. 


11.1 Unconditions| GO TO Sretement 
The form of an unconditional GO TO statement is: 

GO TO s 
where s is the statement /abe! of an executadle statement 
thet eppears in the same program unit as the unconditional 
GO TO statement. 
Execution of an unconditional GO TO statement ceuses 2 


transfer of control so that the statement identified by the 
statement label is executed next. 
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11.2 Computed GO TO Statement 
The fora of a computed GO TO statement is: 
GO TO (sg (.s)...) (,le 


where: @ is sn integer, real, or double precision 
expression 7 


-y is the statement isabel of an executeble statement 
that appears in the seme program unit as the 
computed GO TO statement. The same statement 
label mat aannan ware 


abe! wey appear Wore than 


comouted GO TO statement. 


nce in ihe same 


Execution of a computed GO TO statement causes evatuation af 
the expression INT(e). Let the value of INT(e) be i. The 
evaluation of INT(e) is followed by a transfer of control so 
that the statement identified by the ith statement label in 
the list of statement tabels is executed next, provided that 
1 ¢ i $ g, where n is the number of statement labels in the 
list of statement labels. If i<1 of ion, the execution 
sequence continues as though oa CONTINUE statement were 
executed. 


11.3 Assigned GO TO Statement 

The fora of an assigned GO TO statement is: 
GO T0 i [0,1 ¢ s (,s}... 0] 

where: i is an integer variable name 


s is the statement tabel of an executable statement 
that appears in the same program unit as the 
assigned GO TO statement. The same statement 
label may appear more than once in the same 
assigned GO TO statement. 


At the time of execution of an assigned GO TO statement, the 
current value of ji must have been assigned by the prior 
execution af an ASSIGN statement (10.3) to the statement 
label of an executable statement. The execution of the 
assigned GO TQ statement causes a transfer of control so 
that the statement identified by that statement label is 
executed next. The last definition of the variable in an 
assigned GO TO statement must have occurred in the same 
program unit as the assigned GO TO statement. 


If the parenthesized jist is present, the statement tabel 
assigned to i must be one of the statement labels in the 
fist. 
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11.4 Acithmertc IF Srerement 


The form of an arithmetic IF statement is: 
IF (ed) $s, , Sas Ss 


where: ¢ is an integer, real, or double precision 
expression 


Si- Se. and §; are each the statement iabe! of an 
executable statement that sppears in the same 
program unit es the srithmeric I stetement. The 


same statement label! may appear more than once in 
the same arithmetic IF statement. 


Execution of an arithmetic IF statement causes evaluation of 
the expression e followed by a transfer of control. The 
statement identified by Sit, Sz, OF Ss 1S executed next as 


the value of e@ is less than zero, equal to zero, or greater 
than zero, respectively. 


11.5 Logical IF Statement 
The form cf a logical IF statement is: 

IF C @) se 
where: ¢ is a lagical expression 

st is any executable statement except a 60, 

block IF, ELSE IF, ELSE, END IF, END, or another 

logical IF statement. : 
Execution of a jogical IF statement causes evaluation of the 
expression a. If the value of o ts true, statement st is 
executed. If the value of @ is false, statement st is not 
executed and the execution sequence continues as though a 
CONTINUE statement were executed. 
Note that the execution of a function reference in the 
expression e@ of a togical IF statement is permitted to 
affect entities in the statement st. 
11.6 Block JF Sterement 
The block IF statement is used with the END IF statement 
and, optionally, the ELSE IF and ELSE stetements to control 
the execution sequence. 
The form of a block IF statement is: 

IF (ge) THEN 


where ¢ is a logical expression. 
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11.6.1 F-| l 
The JF-level of a statement g§ is 


ce. 7 ma 
a 

where n, is the number of biock IF statements from the 

beginning of the program unit up to and inctuding s, and fe 

is the number of END IF statements in the program unit up to 

but not inctuding gs. 


The IF-level of every statement must be zero or positive. 
The [F-leve! of each block IF, ELSE IF, ELSE, and END IF 
statement must be positive. The IF-level of the END 
statement of each program unit must be zero. 


11.6.2 JF-Block 
An JF-block consists of at! of the executable statements 


after the block IF statement up to, but not including, the 
next ELSE IF, ELSE, or END IF statement that has the same 


IF-tevel as the block IF statement. An IF-block may be 
empty. 
11.6.3 Execution of a Block IF Statement 


Execution of a biock IF statement causes evaluation of the 
expression ge. If the value of e is true, norma! execution 
sequence continues with the first statement of the IF-block. 
If the IF-block is empty, control is transferred to the next 
END IF statement that has the same IF-ievel as the block IF 
statement. If the vatue of e is false, contro! is 
teansfecred to the next ELSE IF, ELSE, or END IF statement 
that has the same IF-level as the block JF statement. 


Transfer into an IF-block is permitted. 
If the execution of the last statement in the IF-block does 
nor result in a transfer of control, control is transferred 


to the next END IF statement that has the same IF-level as 
the block IF statement that precedes the IF-block. 


11.7 ELSE IF Statement 
The form of an ELSE IF statement is: 
ELSE IF (e) THEN 
where e is a logical expression, 
11.7.1 F-Biock 
An ELSE JF-block cansists of alt of the executable 


Statements after the ELSE IF statement up to, but not 
including, the mext ELSE IF, ELSE, or END IF statement that 


FORTRAN/76 Full Language X33/76.3 (76-07-19) 


CONTROL STATEMENTS Page 11-5 


hes the same IF-level as the ELSE IF statement. An ELSE IF- 


block may be empty. 


11.7.2 Execurion of an ELSE JF Statement 


Execution of an ELSE IF statement causes evaluation of the 
expression e. If the value of @ is true, norma! execution 
sequence continues with the first statement of the ELSE IF- 
block. If the ELSE IF-block is empty, control is 
transferred to the next END IF statement that has the same 
IF~levet as the ELSE IF statement. If the value of e is 
false, control is transferred to the next ELSE IF, ELSE, or 
END IF statement that has the same IF-levelt as the ELSE IF 
stetement. 


Transfer into an ELSE [F-block is permitted. 
If execution of the last statement in the ELSE IF-biock does 
not result in e trensfer of control, contro! is transferred 


to the next END IF statement that has the same IF-level as 
the ELSE IF statement that grecedes the ELSE IF-bliock. 


134.8 ELSE Statement 


The form of an ELSE statement is: 


ELSE 
11.8.1 ~Block 
An = consists of atl of the executable stetements 
after the ELSE statement up to, but not including, the next 


END IF statement that has the seme IJF-level as the ELSE 
statement. An ELSE-block may be empty. 


An ENO IF stetement of the same IJF-level as the ELSE 


statement must appeer before the appearance of an ELSE IF or 
ELSE statement of the same IF-level. 


11.8.2 Execution of an ELSE Statement 


Execution of an ELSE statement has no effect. Normal 
execution sequence continues. 
Transfer into an ELSE-block is permitted. 
11.9 END IF Statement 
The form of an END [F statement is: 
END IF 
Execution of an END IF statement has no effect. Normal 


execution sequence continues. 
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For each oftock 


IF statemenc, 


there must be a cor i 
ENO IF statement in the same program unit. A peeiecigine 302 
JE mn is the next ENO TF statement that has the 303 
same IF-level as the block [Ff statement. 304 
11.10 DO Statement 307. | 
A 00 statement is used to specity a loop, called a DO- toon. 309 
The form of a DO statement is: 311 
OO sf.) i = 2,, e, lies) 313 
where: s is the ¢tarement {ebe! of an €xecutavie 315 
Statement. The statement identified by s, called 316 
the lecmingl statement of the DO-loop, must 317 
physicaily toliow and appeer in the same program 318 
unit as the DO statement. 319 
i. is the name of an integer, reaji, ar double 321 
Precision variabie, catied the ~yari 322 
21. £3. and eg; are each an integer, real, or double 324 
precision expression. 325 
The terminal statement of 2» DO-loop must not be an 327 
unconditional GO TO, assigned 60 TO, arithmetic IF, 328 
block IF, ELSE IF, ELSE, END IF, RETURN, STOP, END, or 00 329 
ebhaules If the terminal statement of 4 DO-loop is a 330 
ogics , It may contain any executable statement except a 331 
OG, biock If, ELSE IF, ELSE, END IF, END, or another logical 332 | 
IF statement. 333 
11.10.1 Range of 9 DO-Logp 335 | 
The range ot a D0-to00 consists of the executable statements 337 
from and including the first executable statement following 338 
the DO statement that specifies the DO-lo0p, to and 339 
including the termina! statement of the DO-loop. 340 
If a DO statement appears within the range of a DO-loop, the 342 
range of the DO-loop specified by that DO statement must be 343° 
within the range of the outer DO-loop. More than one DO- 344 
loop may have the same terminal statement. 345 
If a DO statement appears within an IF-block, ELSE IF-block, 347 
or ,ELSE-biock, the range of that DO-loop must be conteined 348 
entirely within that !F-block, ELSE IF~block, or ELSE-block, 349 
respectively. ! 350 
If a block IF statement appears within the range of a DO- 352 
loop, the corresponding END IF statement must alsa appear 353 
within the range of that DO-loop, 354 
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11.10.2 Active and [nective DO-Looos 


A DO-loop is either active or inactive. 
a D0-loop becomes active 
executed. | 


Initially inactive, 
only when its O00 statement is 
Once active, the DO-l!oop becomes inactive only when: 

(1) its iteration count is zero, 


(2) its 00-variable becomes undefined or is redefined by 
means other than the incrementation described in 


(3) 9 RETURN, STOP, or END statement is executed in its 
orogram unit, 
(4) it is in the range of another ODQ-!oop that becomes 


inactive, or 
(S) it is in the range 


of another DO-loop whose 00 
statement is executed. : 


Note that transfer of control out of the range of a 00-loop 
does not inactivate the D0-loop. However, the D0-toop 
becomes inactive if the DO-veriabte becomes undefined or is 


redefined outside the range. 


the DO-variable of the DO0- 
defined value unless it has become 


lihen a DO-loop becomes inactive, 
loop retains its tast 
undefined. 


11.10.3 Executing » DO Starement 


The effect of axecuting a DO statement is co 
following steps in sequence: 


perform the 


(1) The initial parameter m.. the terminal parameter am, 
and the iner i parameter ms are established 
by evaluating e,, fa. and Bs. respectively, 
including, if necessary, conversion to the type of 
the DO-variable according to the rules for arithmetic 
conversion (Tabie 4). If @; does mot appear, m; has 
a value of one. ms must not have a value of zero. 

(2) The 00-variable becomes defined with the value of the 

initial parameter a,. 

(3) The iteration count is established and is 

of the expression 


the value 


MAXC INTC (mo - m, + ms) /my), 0) 


Note that the iteration count is zero whenever: 
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®, > mz and my > 0, or 
Mm. <M. and ms < 0. 


At the completion of execution of the 00 statement, loop 
control processing begins. 


11.10.4 Loop Control! Processing 


Loop control processing determines if further execution of 
the range of the DO-loap is required. The iteration count is 
tested. If it is not zero, execution of the first statement 
in the range of the DO-!oo0p begins. [f the iteration count 
is zero, the DO-loop becomes inactive. If, as a result, all 
of the DO-loops sharing the terminal statement of this DOQ- 
loop are inactive, normal execution continues with execution 
of the next executable statement following the terminal 
statement. However, if some of the 00-loops sharing the 
terminal statement are active, execution continues with 
incrementation processing, 9s described belon. 


11.10.5 Execution of the Range 


Statements in the range of a DO-!a0p are executed until the 
terminal statement is reached. Except by the incrementation 
described in 11.10.7, the DO-variable of the DO-!loop may 
neither be redefined nor become undefined during execution 
of the range of the DO-lcop. 


11.10.6 Terminal Statement Execution 


Execution of the terminal statement occurs as a result of 
the normal execution sequence or as a result of transfer of 
control, subject to the restrictions in 11.10.8. Unless 
execution of the terminal statement results in a transfer of 
control, execution then continues with inerementation 
processing, as described below. 


11.10.7 Jncrementation Processing 


Incrementation processing has the effect of the following 
steps performed in sequence: 


(1) The OO-veriable, and the incrementstion parameter of 
the ective DO-loop whose DO statement was most 
recently executed, are selected for processing. 


(2) The value of the DO-varisble is incremented by the 
value of the incrementation persmeter ms. 


(3) The iteration count is decremented by one. 
(4) Execution conrinues with ‘oop contro! processing 


(11.10 4- of the same DO-!oop whose iteration count 
was decremented. 
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An example illustrates the above: 


N=0 
DO 100 I1=1,10 


J=I 
DO 100 K=1,5 
L=K 

100 N=N+1 

101 CONTINUE 


After execution of the above statements and at the execution 
of the CONTINUE statement, [=11, J=10, K=6, L=5, and N=50. 


_ Also consider the foilowing exemple: 


N=0 
DO 200 1=1,10 
Jel 
00 200 K=5,1 
L=K 

200 N=N+1 

201 CONTINUE 

After execution of the above statements and at the execution 


of the CONTINUE statement, I=11, J=10, K=5, and N=0. L is 
not defined by the sbove statements. 


11.10.8 Transfer int he Ran t = 
Transter of control into the range of an inactive DO-loop is 
not permitted. Transfer of control to any executable 
statement in the range af an active DO0-loop is permitted 
unless the statement is alsa in the range of an inactive DO- 
loop. 
11.11 I E Statemen 
The form of a CONTINUE statement is: 

CONTINUE 
Execution of a CONTINUE statement has no effect. 
If the CONTINUE statement is not the terminal statement of a 
00-looo, Normal execution sequence continues. If the 
CONTINUE statement is the terminal statement of a DO-!oop, 


the next statement executed depends on the result of the DO- 
loop incrementation processing (11.10.7). 


11.12 STOP Stetement 
The form of a STOP statement is: 


STOP [n] 
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where n is a string of not more then five digits, or is a 
character constent. 


Execution of. @ STOP. statement... causes termination of 
execution of the executable program. At the time of 
termination, the digic string or character constant is 
accessible. 


11.13 PAUSE Starement 
The form of a PAUSE statement is: 
PAUSE (nh) 


where 9 is a string of not more then tive digits, or is a 
character constant. 


Execution of a PAUSE statement causes @ cessation of 
execution of the executable program. Execution must be 
resumable. At the time of cessation of execution, the digit 
string or character constant is accessible. Resumption of 
execution is nat under control of the program. If execution 
is resumed, the normal execution sequence js continued. 


11.14 END Sterement 


The END statement indicates the end of the sequence of 
Statements and comment lines of a program unit (3.5). I[¢ 
executed in a subprogram, it hes the effect of a RETURN 
statement (15.38). If executed in @ main program, it 
terminates the execution of the executable prograa. 


The form of an END statement is: 
END 


An END statement is written only in coluans 7 through 72 of 
an initial line. An END statement must not be continued. 


No other statement in a program unit may have an initial 


tine that appears to be an END starement. 


The last line of every program unit must be an END 
statement. 


FORTRAN/76 Full Language X3J3/76.3 (76-07-19) 


Approved For Release 2002/05/17 : CIA-RDP83T00573R000600200023-2 


